home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / easygrap.arc / SAMPDRAW.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-05-12  |  384 b   |  15 lines
  1. 1  J2=0
  2. 5  SCREEN 1 :CLS
  3. 10  A$="c1;l20;d20;r20;u20;l10;d20;l10;u10;r20"
  4. 20  B$="c3;l100;u40;r100;d40":Z$="e60;u40;g60"
  5. 50  D$="bm150,150;xb$;"
  6. 60  E$="xz$;"
  7. 70  F$="bl100;bd40;xz$;"
  8. 80  G$="bd40;be60;br100;xb$;"
  9. 90  H$="bm50,110;e50;f50"
  10. 100  I$="bl100;be60;e50;f50;h50;g60;"
  11. 110  J$="bm75,120;xa$;bm130,120;xa$;"
  12. 135  CLS
  13. 140  DRAW "a=j2:xd$;xe$;xf$;xg$;xh$;xi$;xj$;"
  14. 150  END
  15.